home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / c / Emperor.lha / Emperor.install < prev    next >
Text File  |  2002-09-27  |  16KB  |  464 lines
  1. ;******************************************************************
  2. ;******************************************************************
  3. ;******************************************************************
  4. ;******************************************************************
  5. ;********************                          ********************
  6. ;********************  Emperor install script  ********************
  7. ;********************                          ********************
  8. ;******************************************************************
  9. ;******************************************************************
  10. ;********                                                  ********
  11. ;********  Version $VER: Emperor.Install 4.5  (7.10.2002)  ********
  12. ;********                                                  ********
  13. ;******************************************************************
  14. ;******************************************************************
  15. ;*****************                                *****************
  16. ;*****************  written by Matthias Gietzelt  *****************
  17. ;*****************                                *****************
  18. ;******************************************************************
  19. ;******************************************************************
  20. ;**********                                              **********
  21. ;**********  Copyright by Matthias Gietzelt © 2000-2002  **********
  22. ;**********              All right reserved              **********
  23. ;**********                                              **********
  24. ;******************************************************************
  25. ;******************************************************************
  26. ;******************************************************************
  27. ;******************************************************************
  28.                                     
  29. ;**PREPARE INSTALL**
  30.  
  31. (set #lang 0)
  32. (if (= "deutsch" @language)
  33.     (
  34.         (set #lang 1)
  35.  
  36.         (set #MSG_OS35          "Emperor benötigt mindestens AmigaOS 3.5 !")
  37.  
  38.         (set #MSG_WELCOME1 (cat "\nWillkommen bei der Installation von Emperor !\n"
  39.                                 "Emperor ist eine objekt-orientierte Programmiersprache.\n\n"
  40.                                 "Vielen Dank das Sie dieses Programmpaket ausprobieren möchten.\n\n"
  41.                                 "Emperor benötigt die Amiga Developer CD 2.1\n"
  42.                                 "von der Haage & Partner GmbH, um arbeiten zu können.\n"
  43.                                 "Dieses beinhaltet z.B. einen C/C++-Compiler und die Unterstützung\n"
  44.                                 "zur Softwareentwicklung für das neue AmigaOS 3.5."))
  45.  
  46.         (set #MSG_WELCOME2 (cat "\nWeiterhin benötigt Emperor folgende Dateien:\n\n"
  47.                                 "CatComp von der Developer CD 2.1\n"
  48.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  49.                                 "StormC von der Developer CD 2.1\n"
  50.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  51.                                 "xen.font in der Größe 8 installiert im Fonts:-Verzeichnis\n"))
  52.  
  53.         (set #MSG_ALREADY_ASSIGNED1 "Sie haben bereits eine Kopie von \"Emperor\" installiert !\n\ninstallierte Version: ")
  54.         (set #MSG_ALREADY_ASSIGNED2 "\nzu installierende Version: 4.5\n\nin Pfad:\n")
  55.         (set #MSG_ALREADY_ASSIGNED3 "\n\nMöchten Sie einen anderen Pfad benutzen ?")
  56.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Ja")
  57.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "Nein")
  58.  
  59.         (set #MSG_DEST         "Wo möchten Sie Emperor installieren ?\nEin Verzeichnis \"Emperor\" wird automatisch erzeugt !")
  60.  
  61.         (set #MSG_GUIDE        "\nBevor Sie mit der Installation beginnen,\n sollten Sie das \"Emperor.guide\" lesen !")
  62.         (set #MSG_GUIDE_NOW    "Jetzt lesen !")
  63.         (set #MSG_GUIDE_DONE   "Bereits erledigt !")
  64.  
  65.         (set #MSG_WHAT         "Welche Programmteile möchten Sie installieren ?")
  66.         (set #MSG_WHAT_PROGGY  "Emperor Programm")
  67.         (set #MSG_WHAT_DOCU    "Emperor Dokumentation")
  68.         (set #MSG_WHAT_CONFIG  "Emperor Konfigurationsdatei")
  69.         (set #MSG_WHAT_CATALOG "Emperor Katalog (deutsch, français)")
  70.         (set #MSG_WHAT_PROJECT "Emperor Beispielprojekte")
  71.         (set #MSG_WHAT_SCRIPTS "Emperor Skripte")
  72.  
  73.         (set #MSG_LANGUAGE     "Bitte wählen Sie die gewünschte Sprache aus !")
  74.  
  75.         (set #MSG_MAKEDIR      "Erzeuge Verzeichnis für Emperor ...")
  76.         (set #MSG_COPY_ICON    "Kopiere Piktogramm ...")
  77.         (set #MSG_COPY_PROGGY  "Kopiere Hauptprogramm ...")
  78.         (set #MSG_COPY_DOCU    "Kopiere Dokumentation ...")
  79.         (set #MSG_COPY_CONFIG  "Kopiere Konfigurationsdatei ...")
  80.         (set #MSG_COPY_CATALOG "Kopiere Katalog ...")
  81.         (set #MSG_COPY_PROJECT "Kopiere Beispielprojekte ...")
  82.         (set #MSG_COPY_SCRIPTS "Kopiere Skripte ...")
  83.         (set #MSG_COPY_README  "Kopiere Readme ...")
  84.         (set #MSG_COPY_PICTURE "Kopiere Startbild ...")
  85.         (set #MSG_COPY_TEMPLATE "Kopiere Vorgabeprojekt ...")
  86.  
  87.         (set #MSG_STARTUP      "\nUm Emperor korrekt arbeiten zu lassen, sind\n Änderungen in der User-Startup notwendig:\n\n")
  88.  
  89.         (set #MSG_NOHELP       "Leider ist keine Hilfe verfügbar !\nFalls sich Probleme ergeben,\nmailen Sie mir einfach: shamane@exmail.de")
  90.         (set #MSG_DONE         "\nInstallation abgeschlossen !\n\nViel Spaß bei der Softwareentwicklung mit Emperor !")
  91.     )
  92.     (
  93.         (set #MSG_OS35          "Emperor needs at least AmigaOS 3.5 !")
  94.  
  95.         (set #MSG_WELCOME1 (cat "\nWelcome to the installation of Emperor !\n"
  96.                                 "Emperor is an object-oriented programming-language.\n\n"
  97.                                 "Thank you for testing this program-packet.\n\n"
  98.                                 "Emperor needs the Amiga Developer CD 2.1\n"
  99.                                 "of the Haage & Partner GmbH, to work properly.\n"
  100.                                 "This CD includes e.g. an C/C++-Compiler and the support\n"
  101.                                 "for developing of software for AmigaOS 3.5."))
  102.  
  103.         (set #MSG_WELCOME2 (cat "\nEmperor needs following files:\n\n"
  104.                                 "CatComp from the Developer CD 2.1\n"
  105.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  106.                                 "StormC from the Developer CD 2.1\n"
  107.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  108.                                 "xen.font in size 8 installed in the Fonts:-directory\n"))
  109.  
  110.         (set #MSG_ALREADY_ASSIGNED1 "You have got already a copy of \"Emperor\" installed !\n\ninstalled version: ")
  111.         (set #MSG_ALREADY_ASSIGNED2 "\nversion to install: 4.5\n\nin path:\n")
  112.         (set #MSG_ALREADY_ASSIGNED3 "\n\nDo you want to take another path ?")
  113.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Yes")
  114.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "No")
  115.  
  116.         (set #MSG_DEST         "Where do you want to install Emperor ?\nA drawer called \"Emperor\" will be created automatically !")
  117.  
  118.         (set #MSG_GUIDE        "\nYou should start installation only after having read \"Emperor.guide\" !")
  119.         (set #MSG_GUIDE_NOW    "Read now !")
  120.         (set #MSG_GUIDE_DONE   "Already done !")
  121.  
  122.         (set #MSG_WHAT         "What do you want to install ?")
  123.         (set #MSG_WHAT_PROGGY  "Emperor main program")
  124.         (set #MSG_WHAT_DOCU    "Emperor documentation")
  125.         (set #MSG_WHAT_CONFIG  "Emperor configuration file")
  126.         (set #MSG_WHAT_CATALOG "Emperor catalog (deutsch, français)")
  127.         (set #MSG_WHAT_PROJECT "Emperor example project")
  128.         (set #MSG_WHAT_SCRIPTS "Emperor scripts")
  129.  
  130.         (set #MSG_LANGUAGE     "Choose the language you'd like!")
  131.  
  132.         (set #MSG_MAKEDIR      "Creating directory for Emperor ...")
  133.         (set #MSG_COPY_ICON    "Copying icon ...")
  134.         (set #MSG_COPY_PROGGY  "Copying main program ...")
  135.         (set #MSG_COPY_DOCU    "Copying documentation ...")
  136.         (set #MSG_COPY_CONFIG  "Copying configuration file ...")
  137.         (set #MSG_COPY_CATALOG "Copying catalog ...")
  138.         (set #MSG_COPY_PROJECT "Copying exampleprojects ...")
  139.         (set #MSG_COPY_SCRIPTS "Copying scripts ...")
  140.         (set #MSG_COPY_README  "Copying readme ...")
  141.         (set #MSG_COPY_PICTURE "Copying startuppicture ...")
  142.         (set #MSG_COPY_TEMPLATE "Copying template project ...")
  143.  
  144.         (set #MSG_STARTUP      "\nTo get Emperor work well there has to be made\n some changes to your User-Startup:\n\n")
  145.  
  146.         (set #MSG_NOHELP       "No help available, sorry !\nWhen there are some problems,\nmail to: shamane@exmail.de")
  147.         (set #MSG_DONE         "\nInstallation complete !")
  148.     )
  149. )
  150. (if (= "français" @language)
  151.     (
  152.         (set #lang 2)
  153.     )
  154. )
  155.  
  156. ;**STARTING UP**
  157.  
  158. (complete 0)
  159.  
  160. (set #INSTALLPATH   (getassign "Emperor" 'a'))
  161. (set #INSTALLED     (strlen #INSTALLPATH))
  162. (set #OSVERSION     (/ (getversion "workbench.library" (resident)) 65536))
  163. (set #GETPATH       1)
  164. (set #WHAT_PROGGY   1)
  165. (set #WHAT_DOCU     2)
  166. (set #WHAT_CONFIG   4)
  167. (set #WHAT_CATALOG  8)
  168. (set #WHAT_PROJECT 16)
  169. (set #WHAT_SCRIPTS 32)
  170. (set #WHAT         63)
  171.  
  172. (if (= 0 #lang) (set #WHAT 55))
  173. (if (> 44 #OSVERSION) (abort #MSG_OS35))
  174.  
  175. (message #MSG_WELCOME1)
  176. (message #MSG_WELCOME2)
  177.  
  178. ;**READ DOCUMENTATION**
  179.  
  180. (if (= 1 (askbool
  181.             (prompt  #MSG_GUIDE)
  182.             (choices #MSG_GUIDE_NOW
  183.                      #MSG_GUIDE_DONE
  184.             )
  185.             (help #MSG_NOHELP)
  186.         )
  187.     )
  188.     (
  189.         (if (= 1 #lang)
  190.             (
  191.                 (run "SYS:Utilities/Multiview Emperor/Emperor_deutsch.guide")
  192.             )
  193.             (
  194.                 (run "SYS:Utilities/Multiview Emperor/Emperor_english.guide")
  195.             )
  196.         )
  197.     )
  198. )
  199.  
  200. ;**CHECK FOR INSTALLED VERSION**
  201.  
  202. (complete 10)
  203.  
  204. (if (<> 0 #INSTALLED)
  205.     (
  206.         (set #INSTALLEDVERSION (getversion "Emperor:Emperor"))
  207.         (set #INSTALLEDVER (/ #INSTALLEDVERSION 65536))
  208.         (set #INSTALLEDREV (- #INSTALLEDVERSION (* #INSTALLEDVER 65536)))
  209.         (set #GETPATH (askbool
  210.                 (prompt  #MSG_ALREADY_ASSIGNED1
  211.                          #INSTALLEDVER
  212.                          "."
  213.                          #INSTALLEDREV
  214.                          #MSG_ALREADY_ASSIGNED2
  215.                          #INSTALLPATH
  216.                          #MSG_ALREADY_ASSIGNED3
  217.                 )
  218.                 (choices #MSG_ALREADY_ASSIGNED_BUTTON1
  219.                          #MSG_ALREADY_ASSIGNED_BUTTON2
  220.                 )
  221.                 (help    #MSG_NOHELP)
  222.             )
  223.         )
  224.     )
  225. )
  226.  
  227. ;**CHOOSE PATH**
  228.  
  229. (complete 20)
  230.  
  231. (if (= 1 #GETPATH)
  232.     (
  233.         (set #INSTALLPATH (askdir
  234.                 (prompt  #MSG_DEST)
  235.                 (help    #MSG_NOHELP)
  236.                 (default @default-dest)
  237.             )
  238.         )
  239.     )
  240. )
  241.  
  242. ;**CHOOSE COMPONENTS TO INSTALL**
  243.  
  244. (complete 30)
  245.  
  246. (if (= 2 @user-level)
  247.     (
  248.         (set #WHAT (askoptions
  249.                 (prompt  #MSG_WHAT)
  250.                 (choices #MSG_WHAT_PROGGY
  251.                          #MSG_WHAT_DOCU
  252.                          #MSG_WHAT_CONFIG
  253.                          #MSG_WHAT_CATALOG
  254.                          #MSG_WHAT_PROJECT
  255.                          #MSG_WHAT_SCRIPTS
  256.                 )
  257.                 (help    #MSG_NOHELP)
  258.                 (default #WHAT)
  259.             )
  260.         )
  261.         (if (<> 0 (bitand #WHAT_DOCU #WHAT))
  262.             (set #lang (askchoice
  263.                     (prompt  #MSG_LANGUAGE)
  264.                     (choices "english"
  265.                              "deutsch"
  266.                              "français")
  267.                     (help    #MSG_NOHELP)
  268.                     (default #lang)
  269.                 )
  270.             )
  271.         )
  272.     )
  273. )
  274.  
  275. ;**CREATE DIRECTORY**
  276.  
  277. (complete 40)
  278.  
  279. (if (= 1 #GETPATH)
  280.     (
  281.         (makedir
  282.                  (tackon #INSTALLPATH "Emperor")
  283.                  (prompt #MSG_MAKEDIR)
  284.                  (help   #MSG_NOHELP)
  285.         )
  286.         (copyfiles
  287.                  (prompt #MSG_COPY_ICON)
  288.                  (source "Emperor.info")
  289.                  (dest   #INSTALLPATH)
  290.                  (help   #MSG_NOHELP)
  291.         )
  292.         (set #INSTALLPATH (tackon #INSTALLPATH "Emperor")
  293.         )
  294.     )
  295. )
  296.  
  297. ;**START COPY-PROCEDURE**
  298.  
  299. (complete 50)
  300.  
  301. (if (<> 0 (BITAND #WHAT_PROGGY #WHAT))
  302.     (
  303.         (copyfiles
  304.                  (prompt #MSG_COPY_PROGGY)
  305.                  (source "Emperor/Emperor")
  306.                  (dest   #INSTALLPATH)
  307.                  (infos)
  308.                  (help   #MSG_NOHELP)
  309.         )
  310.     )
  311. )
  312.  
  313. (complete 55)
  314.  
  315. (if (<> 0 (BITAND #WHAT_DOCU #WHAT))
  316.     (
  317.         (if (= 1 #lang)
  318.             (
  319.                 (copyfiles
  320.                      (prompt #MSG_COPY_DOCU)
  321.                      (newname "Emperor.guide")
  322.                      (source "Emperor/Emperor_deutsch.guide")
  323.                      (dest   #INSTALLPATH)
  324.                      (infos)
  325.                      (help   #MSG_NOHELP)
  326.                 )
  327.             )
  328.             (
  329.                 (copyfiles
  330.                      (prompt #MSG_COPY_DOCU)
  331.                      (newname "Emperor.guide")
  332.                      (source "Emperor/Emperor_english.guide")
  333.                      (dest   #INSTALLPATH)
  334.                      (infos)
  335.                      (help   #MSG_NOHELP)
  336.                 )
  337.             )
  338.         )
  339.     )
  340. )
  341.  
  342. (complete 60)
  343.  
  344. (if (<> 0 (BITAND #WHAT_CONFIG #WHAT))
  345.     (
  346.         (copyfiles
  347.                  (prompt #MSG_COPY_CONFIG)
  348.                  (source "Emperor/Emperor.prefs")
  349.                  (dest   #INSTALLPATH)
  350.                  (infos)
  351.                  (help   #MSG_NOHELP)
  352.         )
  353.     )
  354. )
  355.  
  356. (complete 65)
  357.  
  358. (if (<> 0 (BITAND #WHAT_CATALOG #WHAT))
  359.     (
  360.         (if (= 1 #lang)
  361.             (
  362.                 (copyfiles
  363.                          (prompt #MSG_COPY_CATALOG)
  364.                          (source "Emperor/Catalogs/deutsch/Emperor.catalog")
  365.                          (dest   "SYS:Locale/Catalogs/deutsch")
  366.                          (help   #MSG_NOHELP)
  367.                 )
  368.             )
  369.         )
  370.         (if (= 2 #lang)
  371.             (
  372.                 (copyfiles
  373.                          (prompt #MSG_COPY_CATALOG)
  374.                          (source "Emperor/Catalogs/français/Emperor.catalog")
  375.                          (dest   "SYS:Locale/Catalogs/français")
  376.                          (help   #MSG_NOHELP)
  377.                 )
  378.             )
  379.         )
  380.     )
  381. )
  382.  
  383. (complete 70)
  384.  
  385. (if (<> 0 (BITAND #WHAT_PROJECT #WHAT))
  386.     (
  387.         (copyfiles
  388.                  (prompt #MSG_COPY_PROJECT)
  389.                  (source "Emperor/Projects/")
  390.                  (dest   (tackon #INSTALLPATH "Projects"))
  391.                  (infos)
  392.                  (all)
  393.                  (help   #MSG_NOHELP)
  394.         )
  395.     )
  396. )
  397.  
  398. (complete 75)
  399.  
  400. (if (<> 0 (BITAND #WHAT_SCRIPTS #WHAT))
  401.     (
  402.         (copyfiles
  403.                  (prompt #MSG_COPY_SCRIPTS)
  404.                  (source "Emperor/Scripts/")
  405.                  (dest   (tackon #INSTALLPATH "Scripts"))
  406.                  (infos)
  407.                  (all)
  408.                  (help   #MSG_NOHELP)
  409.         )
  410.     )
  411. )
  412.  
  413. ;**COPYING NECESSARY ADDITONAL INFORMATIONS AND STUFF**
  414.  
  415. (complete 80)
  416.  
  417. (copyfiles
  418.     (prompt #MSG_COPY_README)
  419.     (source "Emperor/ClicktabExample.README!")
  420.     (dest   #INSTALLPATH)
  421.     (help   #MSG_NOHELP)
  422. )
  423.  
  424. (complete 85)
  425.  
  426. (copyfiles
  427.     (prompt #MSG_COPY_TEMPLATE)
  428.     (source "Emperor/template.project")
  429.     (dest   #INSTALLPATH)
  430.     (help   #MSG_NOHELP)
  431. )
  432.  
  433. (complete 90)
  434.  
  435. (copyfiles
  436.     (prompt #MSG_COPY_PICTURE)
  437.     (source "Emperor/Emperor.pic")
  438.     (dest   #INSTALLPATH)
  439.     (help   #MSG_NOHELP)
  440. )
  441.  
  442. ;**ADD ASSIGN TO USER-STARTUP**
  443.  
  444. (complete 95)
  445.  
  446. (if (= 1 #GETPATH)
  447.     (
  448.         (set #MSG_STARTUPSTUFF (cat "Assign Emperor: " #INSTALLPATH "\n"))
  449.         (startup "Emperor"
  450.             (prompt #MSG_STARTUP
  451.                     #MSG_STARTUPSTUFF
  452.             )
  453.             (command #MSG_STARTUPSTUFF)
  454.             (confirm)
  455.             (help #MSG_NOHELP)
  456.         )
  457.         (makeassign "Emperor" #INSTALLPATH)
  458.     )
  459. )
  460.  
  461. (complete 100)
  462.  
  463. (exit #MSG_DONE (quiet))
  464.